home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / rwn_project.module < prev    next >
Text File  |  1996-09-26  |  1KB  |  106 lines
  1. MODULE RWN_Project;
  2.  
  3. (* Tastaturbelegung *)
  4.  
  5.   PROCEDURE ReadCurrentGroup(mode : NUMBER);
  6.  
  7.   VAR
  8.     name,folder : STRING;
  9.  
  10.   BEGIN
  11.     IF (_yPos>2) AND (_currentLine#"") THEN
  12.       IF REGEXP("^[^ ]*",_currentLine,name) THEN
  13.         UMS.lastListPos:=_yPos;
  14.         IF name="Folder:" THEN
  15.           IF REGEXP("^Folder: ([^ ]*)",_currentLine,folder,name) THEN
  16.             UMS.ReadGroup(name,TRUE,mode);
  17.           END;
  18.         ELSIF name="private" THEN
  19.           UMS.ReadGroup("",FALSE,mode);
  20.         ELSE
  21.           UMS.ReadGroup(name,FALSE,mode);
  22.         END;
  23.       ELSE
  24.         MessageOk("Cannot parse groupname!");
  25.       END;
  26.     ELSE
  27.       Flash;
  28.     END;
  29.   END ReadCurrentGroup;
  30.  
  31. KEY "control up"
  32.   ScrollUp
  33. END;
  34.  
  35. KEY "alt up"
  36.   Goto([_xPos,1])
  37. END;
  38.  
  39. KEY "shift up"
  40.   PageUp(90)
  41. END;
  42.  
  43. KEY "up"
  44.   CursorUp(0)
  45. END;
  46.  
  47. KEY "control down"
  48.   ScrollDown
  49. END;
  50.  
  51. KEY "alt down"
  52.   Goto([_xPos,_length])
  53. END;
  54.  
  55. KEY "shift down"
  56.   PageDown(90)
  57. END;
  58.  
  59. KEY "down"
  60.   CursorDown(0)
  61. END;
  62.  
  63. KEY "return"
  64.   ReadCurrentGroup(1);
  65. END;
  66.  
  67. KEY "shift return"
  68.   ReadCurrentGroup(0);
  69. END;
  70.  
  71. (* Menüs *)
  72.  
  73. MENU "Projekt";
  74.  
  75. ITEM "Scan all" "A"
  76.   UMS.ReadGroupList(0);
  77. END;
  78.  
  79. ITEM "Scan new" "N"
  80.   UMS.ReadGroupList(2);
  81. END;
  82.  
  83. ITEM "Scan new or postponed" "S"
  84.   UMS.ReadGroupList(1);
  85. END;
  86.  
  87. ITEMBAR;
  88.  
  89. ITEM "Iconify" "escape"
  90.   Iconify
  91. END;
  92.  
  93. ITEMBAR;
  94.  
  95. ITEM "About" "?"
  96.   About
  97. END;
  98.  
  99. ITEMBAR;
  100.  
  101. ITEM "Quit" "Q"
  102.   QuitEd;
  103. END;
  104.  
  105. END RWN_Project.
  106.